home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / prodpack.zip / DB4PPSRC.EXE / _ODOMET.PRG < prev    next >
Text File  |  1993-05-04  |  4KB  |  133 lines
  1. *' $Header: $
  2. PROCEDURE _Odomet
  3. *-------------------------------------------------------------------------
  4. * NAME
  5. *   _Odomet - Display an odometer for operation status
  6. * 
  7. * DESCRIPTION
  8. *   _Odomet will display an Odometer in a window to show the progress
  9. *   of an operation.  _Odomet uses global variables versus parameter
  10. *   passing for performance reasons.  The odometer will always start
  11. *   at row 9.
  12. * 
  13. * GLOBAL VARIABLES
  14. *   gn_OdMax    = The maximum value for the odometer.
  15. *   gn_OdCur    = The current value of the odometer.  The percentage of
  16. *                 completion is based on gn_OdCur / gn_OdMax.  A value
  17. *                 of 0 will activate the odometer window.  When the value
  18. *                 equals gn_OdMax, the window will go away.
  19. *   gc_OdText   = An optional message to display.  The message is painted
  20. *                 when gn_OdCur is 0.
  21. *   gn_OdLeft   = The left most column of the odometer border inside of
  22. *                 the window.  This avoid having to calculate the value
  23. *                 during each iteration.
  24. *   gc_OdBoxCl  = Original color of box
  25. * 
  26. * EXAMPLE
  27. * 
  28. *   gn_OdMax  = 100
  29. *   gn_OdCur  = 0
  30. *   gn_OdLeft = 0           && Altered by _Odomet
  31. *   gn_OdRight = 0          && Altered by _Odomet
  32. *   gn_OdBoxCl = ""         && Altered by _Odomet
  33. *   gc_OdText = [Checking the form fields]
  34. * 
  35. *   DO _Odomet
  36. * 
  37. *   ln = 1
  38. *   DO WHILE ln <= gn_OdMax
  39. *     ....
  40. *     ln = ln + 1
  41. *     gn_OdCur = ln
  42. *     DO _Odomet
  43. *   ENDDO
  44. *
  45. * ERROR CHECKING
  46. *   _Odomet assumes that all the variables are set correctly to avoid
  47. *   the overhead of type checking.
  48. * 
  49. *-------------------------------------------------------------------------
  50.   IF gn_OdCur > 0
  51.     IF gn_OdCur <= gn_OdMax
  52.  
  53.       *-- Display the odometer setting
  54.       @ 1, gn_OdLeft + 1 TO ;
  55.         1, INT( gn_OdLeft + 1 + ( gn_OdCur / gn_OdMax * 25 ) ) PANEL
  56.  
  57.       RETURN
  58.     ELSE
  59.       *-- Display the odometer setting
  60.       @ 1, gn_OdLeft + 1 TO 1, gn_OdRight - 1 PANEL
  61.  
  62.       DEACTIVATE WINDOW _Odomet
  63.       RELEASE WINDOW _Odomet
  64.       RESTORE SCREEN FROM Odomet
  65.       RELEASE SCREEN Odomet
  66.       SET COLOR OF BOX TO &gc_OdBoxCl
  67.       RETURN
  68.     ENDIF
  69.   ENDIF
  70.  
  71.   IF gn_OdCur = 0
  72.     ln_LenOdom = 27
  73.     ln_Mess = 0
  74.     IF TYPE( "gc_OdText" ) = "C"
  75.  
  76.       ln_Mess = LEN( gc_OdText )
  77.       IF ln_Mess <= ln_LenOdom
  78.         ln_Width = ln_LenOdom
  79.       ELSE
  80.         IF ln_Mess > 76
  81.           gc_OdText = LEFT( gc_OdText, 76 )
  82.           ln_Mess = 76
  83.         ENDIF
  84.         ln_Width = ln_Mess
  85.       ENDIF
  86.  
  87.     ELSE
  88.       ln_Width    = ln_LenOdom
  89.     ENDIF
  90.  
  91.     ln_LeftCol  = ((76 - ln_Width) + .5) / 2
  92.     ln_RightCol = (ln_Width + 83) / 2
  93.  
  94.     gc_OdBoxCl = _ColorChk( "B" )
  95.     SET COLOR OF BOX TO w+/w
  96.     SAVE SCREEN TO Odomet
  97.     @ 10,  ln_LeftCol + 2 FILL TO 16, ln_RightCol + 2 COLOR n+/n
  98.     DEFINE WINDOW _Odomet FROM 9,  ln_LeftCol ;
  99.                           TO 15, ln_RightCol DOUBLE ;
  100.                           COLOR n/w
  101.  
  102.     ln_width    = ln_width + 2
  103.     ln_OdLeft   = (ln_width - ln_LenOdom ) / 2
  104.     gn_OdLeft   = ln_OdLeft
  105.     gn_OdRight  = ln_OdLeft + ln_LenOdom
  106.  
  107.     ACTIVATE WINDOW _Odomet
  108.  
  109.  
  110.     @ 0, ln_OdLeft SAY CHR( 218 ) COLOR n/w
  111.     @ 0, ln_OdLeft + 1 SAY REPLICATE( CHR( 196 ), ln_LenOdom - 1 ) COLOR n/w
  112.     @ 0, gn_OdRight SAY CHR( 191 ) COLOR w+/w
  113.     @ 1, ln_OdLeft SAY CHR( 179 ) COLOR n/w
  114.     @ 1, gn_OdRight SAY CHR( 179 ) COLOR w+/w
  115.     @ 2, ln_OdLeft SAY CHR( 192 ) COLOR n/w
  116.     @ 2, ln_OdLeft + 1 SAY REPLICATE( CHR( 196 ), ln_LenOdom - 1 ) COLOR w+/w
  117.     @ 2, gn_OdRight SAY CHR( 217 ) COLOR w+/w
  118.  
  119.     IF TYPE( "gc_OdText" ) = "C"
  120.       @ 3, ( ln_Width - ln_Mess ) / 2 SAY gc_OdText COLOR n/w
  121.     ENDIF
  122.  
  123.   ELSE
  124.  
  125.   ENDIF
  126.  
  127. RETURN
  128. *-- EOP: _Odomet
  129. *'----------------------------------------------------------------------------
  130. *' $Log: $
  131. *'----------------------------------------------------------------------------
  132.  
  133.